home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol037 / miniprog.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.6 KB  |  29 lines
  1. 1000 PROG1$="  M I N I P R O G  "
  2. 1010 REV$ = "    Rev: 830120    "
  3. 1020 ID$  = "By  Robert Hamilton"
  4. 1030 NOTE$= "NOTE: This is a skeletin basic program"
  5. 1040 SCREEN 0,0,0:WIDTH 80:COLOR 2,0,0:KEY OFF:CLS
  6. 1050 LOCATE ,,1,12,13:DEF SEG=0:IF PEEK (&H410)= 109 THEN LOCATE ,,,6,7
  7. 1060 DEF SEG=64:POKE 23,128:DEF SEG:ON ERROR GOTO 1230
  8. 1070 OPTION BASE 1:CL$=STRING$(79,0):UP$=STRING$(1,30):Q$=CHR$(34)
  9. 1080 ' Dim a$(10):Defint a-z  '                       DIM & DEF Statements here
  10. 1090 KEY 1,CHR$(27)+"CLS:LIST ":KEY 2,CHR$(27)+"RUN"+CHR$(7)'              Keys
  11. 1100 KEY 9,CHR$(12)+"COLOR 6,0:CLS"+CHR$(13)
  12. 1110 FOR I=1 TO 10:ON KEY(I) GOSUB 0:KEY (I) ON:NEXT '   Turns Keys Off, Basica
  13. 1120 LOCATE 5,28:COLOR 2,0:PRINT PROG1$:COLOR 2,0:LOCATE 7,28:PRINT REV$
  14. 1130 LOCATE 9,28:PRINT ID$:LOCATE 20,1:COLOR 6,0:PRINT NOTE$:SOUND 500,5
  15. 1140 LOCATE 24,1:COLOR 0,7:PRINT" SPACE ";:COLOR 5,0:PRINT" To Continue   ";
  16. 1150 COLOR 0,7:PRINT" Q ";:COLOR 5,0:PRINT" To Quit ";:COLOR 6,0
  17. 1160 K$=INKEY$:IF MID$(K$,1,1)=CHR$(13) OR MID$(K$,1,1)=" " THEN 1240
  18. 1170 IF MID$(K$,1,1)="q" OR MID$(K$,1,1)="Q" THEN 1210
  19. 1180 GOTO 1160  '                      Delete this line for any key to continue
  20. 1190 IF K$="" THEN 1160
  21. 1200 GOTO 1240
  22. 1210 ' Cls:Locate 24,1:System:End '              Use this line to return to DOS
  23. 1220 CLS:LOCATE 20,1:COLOR 6,0:PRINT"DONE";CHR$(10):KEY ON:SOUND 200,6:END
  24. 1230 SOUND 600,5:PRINT CHR$(10):COLOR 6,0:ON ERROR GOTO 0:END  'Trap Error Here
  25. 1240     REM: »» START PROGRAM
  26. 1250 ERROR 255:END '                ERROR TRAP TEST, Start program on this line
  27. p Error Here
  28. 1240     REM: »» START PROGRAM
  29. 1250 ERROR 255:END '